;Start of program
	XPROG
	1
		;Initialization - AFFIX driver_grasp to driver_tip
	XPUSH
	L1
	XAFFIX
		;DRIVER_TIP
	13
		;DRIVER_GRASP
	12
	2000
		;.DRIVER_TRANS
	14
		;Init (cont) - AFFIX moving_jaw to fixed_jaw
		;		Wait till VISE is ready
		;End of Initialization
		;BLOCK
	XMVAR
		;Arrays
		;V
	1002
	1
	100007
	100001
	0
		;wrist
	XWRIST
		;V
	400
		;V
	400
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
	XENDP
		;End of program